home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim7.dem < prev   
Text File  |  1999-09-16  |  578b  |  27 lines
  1. // Just like anim1.dem 
  2. // but using the xtape command to redraw 
  3. // It must be faster than demo1.dem
  4. kdr=driver();
  5. driver("Rec");
  6. kp=xget("pixmap");
  7. win=xget("window");
  8. if kp=0, xset("pixmap",1);end;
  9. xset("wwpc");
  10. t=%pi*(-5:5)/5;
  11. plot3d1(t,t,sin(t)'*cos(t),35,45," ",[2,2,4])
  12. // I stop recording graphic command for xtape('replay')
  13. // to work 
  14. driver("X11")
  15. xset("wshow");
  16. sp=2;
  17. for i=35:sp:80,xset("wwpc");
  18.     xtape('replayna',win,i,45)
  19.     xset("wshow");
  20. end
  21. for i=45:sp:80,xset("wwpc");
  22.     xtape('replayna',win,80,i)
  23.     xset("wshow");
  24. end
  25. if kp=0, xset("pixmap",0);end;
  26. driver(kdr);
  27.